n1=1:PAGE:/notice $nick I have recevied your page. If I do not reply soon, Please leave a message. | /write pages.txt $nick Paged you - $fulldate
n2=#away2 end
n3=#xdcc start
n4=1:xdcc {
n5= set %pack $remove($parm3,$chr(35)) | if (%xdccs == off) goto off | if ($parm2 == list && $parm3 != $null) goto showlist | if ($parm2 == list) goto list | if ($parm2 == queue) goto queue | if ($parm2 == help) goto help | if ($parm2 == send) goto send | raw -q notice $nick :Error. /MSG $me XDCC HELP. | halt | :list | nlist $nick | halt | :send | if ($send(0) >= %maxslots) { if ($lines(%qpath) >= %maxqueue) goto qfull | write %qpath $nick %pack
n6= raw -q notice $nick :DCC Limit reached: Will send you %filedesc [ $+ [ %pack ] ] $+ , which is one file, when a slot opens. | raw -q notice $nick :You are in query position $+ $lines(%qpath) $+ of $+ %maxqueue $+ . | halt } | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+ does not exist. /MSG $me XDCC LIST. | halt } | psend $nick %pack | halt
n7= :off | raw -q notice $nick :There are no files offered. | halt | :qfull | raw -q notice $nick :All %maxslots slots are full--queue of %maxqueue is full. Try again later. | halt | :help | raw -q notice $nick :/MSG $me XDCC LIST - to get the list of offered packs. | raw -q notice $nick :/MSG $me XDCC LIST #<N> - to get more info on pack #<N>. | raw -q notice $nick :/MSG $me XDCC SEND #<N> - to send pack #<N>. | halt | :queue | raw -q notice $nick :Queue Length: $lines(%qpath) / %maxqueue | halt
n67= %thisasc = $asc($mid(%i,1,%realword)) | if (%thisasc == 32) { set %tempdash %tempdash $+ | goto next } | %thischr = $chr(%thisasc)
n68= if ((%thischr == %letter) || (%thischr isin %correctlets)) { set %tempdash %tempdash $+ %thischr | goto next } | else { set %tempdash %tempdash $+ - | goto next }
n69= :done | set %correctlets %correctlets $+ %letter | set %dashword %tempdash
n70= if ($chr(45) !isin %dashword) { msg %hangmanchan h┴±g m├± The game is over! The correct phrase was $+ %realword $+ | msg %hangmanchan It took %wrongnum wrong guesses and %rightnum right ones. | disable #game | halt } | inc %rightnum 1 | msg %hangmanchan h┴±g m├± Word is now %dashword
n152= if (($chat(%i) != $nick) && ($chat(%i).status == active)) { msg = $+ $chat(%i) 8,2 $nick has logged off }
n153= inc %i
n154= goto next
n155= :done
n156=}
n157=#orange end
n158=#xdccmsg start
n159=1:ON TEXT:xdcc*:? {
n160= set %pack $remove($parm3,$chr(35)) | if (%xdccs == off) goto off | if ($parm2 == list && $parm3 != $null) goto showlist | if ($parm2 == list) goto list | if ($parm2 == queue) goto queue | if ($parm2 == help) goto help | if ($parm2 == send) goto send | raw -q notice $nick :Error. /MSG $me XDCC HELP. | halt | :list | nlist $nick | halt | :send | if ($send(0) >= %maxslots) { if ($lines(%qpath) >= %maxqueue) goto qfull | write %qpath $nick %pack
n161= raw -q notice $nick :DCC Limit reached: Will send you %filedesc [ $+ [ %pack ] ] $+ , which is one file, when a slot opens. | raw -q notice $nick :You are in query position $+ $lines(%qpath) $+ of $+ %maxqueue $+ . | halt } | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+ does not exist. /MSG $me XDCC LIST. | halt } | psend $nick %pack | halt
n162= :off | raw -q notice $nick :There are no files offered. | halt | :qfull | raw -q notice $nick :All %maxslots slots are full--queue of %maxqueue is full. Try again later. | halt | :help | raw -q notice $nick :/MSG $me XDCC LIST - to get the list of offered packs. | raw -q notice $nick :/MSG $me XDCC LIST #<N> - to get more info on pack #<N>. | raw -q notice $nick :/MSG $me XDCC SEND #<N> - to send pack #<N>. | halt | :queue | raw -q notice $nick :Queue Length: $lines(%qpath) / %maxqueue | halt